home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / rkey15.zip / RKGENFIL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-09  |  953b  |  41 lines
  1. Program RkGenKey;
  2.  
  3. {
  4.  This is a sample program using rKey.  It is a sample of a key file
  5.  generation program that would be used by the programmer to create
  6.  key files to be distributed to registered users.  The program itself
  7.  would NOT be distributed, as it would allow users to generate key
  8.  files.  This sample will create a key file for the RkSample program.
  9. }
  10.  
  11.  
  12. Uses
  13.   rKey;
  14.  
  15.  
  16. Const
  17.   RkGenFilVer = '1.0';
  18.  
  19.  
  20. Var
  21.   n : String[36];
  22.  
  23.  
  24. Begin
  25.   OwnerCode := 'ArgleBarbWotsLeeb';
  26.   ProgramCode := 'RkSample Two';
  27.   KeyFileName := 'RKSAMPLE';
  28.   WriteLn('RkGenFil v' + RkGenFilVer);
  29.   WriteLn('Key File Generation Program for RkSample v2.x');
  30.   WriteLn('(c) 1990 TrendSoft, Inc.');
  31.   WriteLn;
  32.   WriteLn('FOR INTERNAL USE ONLY!');
  33.   WriteLn('DO NOT DISTRIBUTE!');
  34.   WriteLn;
  35.   Write('Enter name of person to register : ');
  36.   ReadLn(n);
  37.   WriteLn;
  38.   Register(n,MakeKey(n));
  39.   WriteLn(KeyFilePath + ' created.');
  40. End.
  41.